R - Simple loop not working: no loop for break